#!/usr/bin/perl
$tong = &tinhtoan;
sub tinhtoan(){
	return 3*4;
}
printf $tong;
